sub cvsoundio(tvl as ubyte):
  out $FF,tvl
  end sub
